home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Utilities / PalmLink / arexx / test.rx
Text File  |  2000-01-06  |  3KB  |  129 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  test.rx     A small test for PalmLink's ARexx interface     **
  4. **                                                              **
  5. ******************************************************************
  6. **
  7. **      (c) 1999 by Richard Körber -- All Rights Reserved
  8. **
  9. **      You may use this example freely for your own programs.
  10. */
  11.  
  12.  
  13. /* Add the library functions */
  14. CALL AddLib("/libs/palmlink.library",0,-30,0)
  15.  
  16. /* Catch errors for a clean exit */
  17. SIGNAL ON ERROR
  18. SIGNAL ON SYNTAX
  19.  
  20. /* Open a socket (default serial) and the conduit */
  21. CALL PALM_OpenSocket('socket','')
  22. SAY "Press the HotSync button now..."
  23. CALL PALM_Accept('socket','')
  24. CALL PALM_OpenConduit('socket')
  25.  
  26. /* Get the baud rate */
  27. CALL PALM_GetBaudRate('socket')
  28. SAY "Negotiated baud rate:" RESULT
  29.  
  30. /* Get System Information */
  31. CALL PALM_GetSysInfo('socket','SYS')
  32. SAY "PALM_GetSysInfo"
  33. SAY "  SYSNAME:   " SYS.SYSNAME
  34. SAY "  ROMVERSION:" SYS.ROMVERSION
  35. SAY "  LOCALIZION:" SYS.LOCALIZION
  36. SAY ""
  37.  
  38. /* Get Storage Information */
  39. CALL PALM_GetStorageInfo('socket','','STORAGE')
  40. SAY "PALM_GetStorageInfo"
  41. SAY "  NAME:      " STORAGE.NAME
  42. SAY "  MANUFACT.: " STORAGE.MANUFACTURER
  43. SAY "  CARDNO:    " STORAGE.CARDNO
  44. SAY "  VERSION:   " STORAGE.VERSION
  45. SAY "  CREATED:   " STORAGE.CREATED
  46. SAY "  ROMSIZE:   " STORAGE.ROMSIZE
  47. SAY "  RAMSIZE:   " STORAGE.RAMSIZE
  48. SAY "  RAMFREE:   " STORAGE.RAMFREE
  49. SAY ""
  50.  
  51. /* Get all RAM database information */
  52. INDEXX = 0
  53. SAY "PALM_GetDBInfo"
  54. DO FOREVER
  55.   HASMORE = PALM_GetDBInfo('socket',INDEXX,'INFO')
  56.   SAY "  NAME:      " INFO.NAME
  57.   SAY "  INDEX:     " INFO.INDEX
  58.   SAY "  CREATED:   " INFO.CREATED
  59.   SAY "  MODIFIED:  " INFO.MODIFIED
  60.   SAY "  BACKUPPED: " INFO.BACKUPPED
  61.   SAY "  VERSION:   " INFO.VERSION
  62.   SAY "  CREATOR:   " INFO.CREATOR
  63.   SAY "  TYPE:      " INFO.TYPE
  64.   SAY "  FLAGS:     " INFO.FLAGS
  65.   SAY "  EXCLUDE:   " INFO.EXCLUDE
  66.   SAY ""
  67.   INDEXX = INFO.INDEX+1
  68.   IF HASMORE==0 THEN LEAVE
  69. END
  70.  
  71. /* Get NetSync information */
  72. CALL PALM_NetSyncInfo('socket','','NSI')
  73. SAY "PALM_NetSyncInfo"
  74. SAY "  LANSYNC:   " NSI.LANSYNC
  75. SAY "  HOSTNAME:  " NSI.HOSTNAME
  76. SAY "  HOSTADDR:  " NSI.HOSTADDRESS
  77. SAY "  HOSTSNM:   " NSI.HOSTSUBNETMASK
  78. SAY ""
  79.  
  80. /* Get System time */
  81. CALL PALM_SysTime('socket','','SYST')
  82. SAY "PALM_SysTime"
  83. SAY "  TIME:      " SYST.TIME
  84. SAY "  SECOND:    " SYST.SECOND
  85. SAY "  MINUTE:    " SYST.MINUTE
  86. SAY "  HOUR:      " SYST.HOUR
  87. SAY "  DAY:       " SYST.DAY
  88. SAY "  MONTH:     " SYST.MONTH
  89. SAY "  YEAR:      " SYST.YEAR
  90. SAY ""
  91.  
  92. /* Get User info */
  93. CALL PALM_UserInfo('socket','','UI')
  94. SAY "PALM_UserInfo"
  95. SAY "  USERID:    " UI.USERID
  96. SAY "  VIEWERID:  " UI.VIEWERID
  97. SAY "  LASTSYNCPC:" UI.LASTSYNCPC
  98. SAY "  LASTSYNC:  " UI.LASTSYNC
  99. SAY "  SUCC.SYNC: " UI.SUCCESSFULSYNC
  100. SAY "  USERNAME:  " UI.USERNAME
  101. SAY "  PASSWORD:  " UI.PASSWORD
  102. SAY ""
  103.  
  104. /* Add some lines to the Sync Log */
  105. CALL PALM_AddSyncLogEntry('socket','"ARexx Test done..."')
  106. CALL PALM_AddSyncLogEntry('socket','"Amiga made it possible! :-)"')
  107.  
  108. /* Close the socket */
  109. CALL PALM_EndOfSync('socket','')   /* Never forget this! */
  110. CALL PALM_CloseSocket('socket')
  111. SAY "Done..."
  112.  
  113. EXIT
  114.  
  115.  
  116. /* Catch an error */
  117. ERROR:
  118.   SAY "** ERROR **"
  119.   CALL PALM_CloseSocket('socket')
  120.   EXIT
  121.  
  122. /* Catch a syntax error */
  123. SYNTAX:
  124.   SAY "** SYNTAX ** in line " SIGL ":" ERRORTEXT(RC)
  125.   CALL PALM_CloseSocket('socket')
  126.   EXIT
  127.  
  128.  
  129.